home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / mailx6 / _setup.2 / Group9 / mailx.BAK next >
Encoding:
Text File  |  1996-08-11  |  308 b   |  17 lines

  1. * MAILX.PRG
  2. *
  3. PRIVATE lcProgram
  4. LOCAL oForm
  5.  
  6. lcProgram=LOWER(SYS(16))
  7. SET CLASSLIB TO (FULLPATH('mailx',lcProgram)) ADDITIVE
  8.  
  9. oForm=CREATEOBJECT('mailx')
  10. oForm.Closeable=.F.
  11. oForm.MMsg1.BindWith(oForm.MSess1.ObjRef)
  12. oForm.MReci1.BindWith(oForm.MMsg1.ObjRef)
  13. oForm.SHOW  
  14. READ EVENTS 
  15.  
  16. RETURN
  17.